home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jlatin1.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  4.9 KB  |  190 lines
  1. # jlatin1.tcl - table of Compose-key sequences for iso8859-1 encoding
  2. # 
  3. # Copyright 1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non¡profit, noncommercial use.
  6. ######################################################################
  7.  
  8. # this is used by jtextkeys.tcl, jbindentry.tcl, and jcompose.tcl
  9.  
  10. ######################################################################
  11. # TO DO:
  12. #   generalise to other character sets
  13. #   Add sequences for ASCII chars for people who might not have them 
  14. #   on their keyboards (e.g. $, [, ], etc.).
  15. ######################################################################
  16.  
  17. # NOTE:  In the list of keysym, character, components, the two-character
  18. #   components MUST be in collating order, because the keys the user 
  19. #   types are sorted by the procs in jcompose.tcl (so `or' will work, 
  20. #   but `ro' won't).
  21.  
  22. proc j:compose_init:iso8859-1 {} {
  23.   global j_cmp
  24.   
  25.   foreach triple {
  26.     {nobreakspace "\xa0" {  }}
  27.     {exclamdown {í} {!!}}
  28.     {cent {ó} {/c}}
  29.       {cent {ó} {c|}}
  30.     {sterling {ú} {-L}}
  31.       {sterling {ú} {=L}}
  32.       {sterling {ú} {LL}}
  33.       {sterling {ú} {##}}
  34.     {currency {ñ} {ox}}
  35.       {currency {ñ} {$$}}
  36.     {yen {Ñ} {=Y}}
  37.       {yen {Ñ} {-Y}}
  38.     {brokenbar {ª} {||}}
  39.     {section {º} {OS}}
  40.       {section {º} {So}}
  41.       {section {º} {os}}
  42.     {diaeresis {¿} {""}}
  43.     {copyright {⌐} {co}}
  44.       {copyright {⌐} {Oc}}
  45.       {copyright {⌐} {CO}}
  46.     {ordfeminine {¬} {-a}}
  47.       {ordfeminine {¬} {_a}}
  48.     {guillemotleft {½} {<<}}
  49.     {notsign {¼} {-|}}
  50.       {notsign {¼} {,-}}
  51.     {hyphen {¡} {--}}
  52.     {registered {«} {or}}
  53.       {registered {«} {Or}}
  54.       {registered {«} {OR}}
  55.     {macron {»} {-^}}
  56.       {macron {»} {^_}}
  57.       {macron {»} {__}}
  58.     {degree {░} {oo}}
  59.       {degree {░} {0^}}
  60.       {degree {░} {00}}
  61.     {plusminus {▒} {+-}}
  62.       {plusminus {▒} {+_}}
  63.     {twosuperior {▓} {2^}}
  64.       {twosuperior {▓} {22}}
  65.     {threesuperior {│} {3^}}
  66.       {threesuperior {│} {33}}
  67.     {acute {┤} {''}}
  68.       {acute {┤} {\\}}
  69.     {mu {╡} {/u}}
  70.       {mu {╡} {u|}}
  71.       {mu {╡} {mu}}
  72.     {paragraph {╢} {PP}}
  73.     {periodcentered {╖} {..}}
  74.       {periodcentered {╖} {*+}}
  75.       {periodcentered {╖} {+o}}
  76.       {periodcentered {╖} {*.}}
  77.     {cedilla {╕} {,,}}
  78.     {onesuperior {╣} {1^}}
  79.       {onesuperior {╣} {11}}
  80.     {masculine {║} {-o}}
  81.       {masculine {║} {_o}}
  82.     {guillemotright {╗} {>>}}
  83.     {onequarter {╝} {14}}
  84.     {onehalf {╜} {12}}
  85.     {threequarters {╛} {34}}
  86.     {questiondown {┐} {??}}
  87.     {Agrave {└} {A`}}
  88.     {Aacute {┴} {'A}}
  89.     {Acircumflex {┬} {A^}}
  90.     {Atilde {├} {A~}}
  91.     {Adiaeresis {─} {"A}}
  92.     {Aring {┼} {Ao}}
  93.       {Aring {┼} {AO}}
  94.       {Aring {┼} {*A}}
  95.       {Aring {┼} {AA}}
  96.     {AE {╞} {AE}}
  97.     {Ccedilla {╟} {,C}}
  98.       {Ccedilla {╟} {CC}}
  99.     {Egrave {╚} {E`}}
  100.     {Eacute {╔} {'E}}
  101.     {Ecircumflex {╩} {E^}}
  102.     {Ediaeresis {╦} {"E}}
  103.     {Igrave {╠} {I`}}
  104.     {Iacute {═} {'I}}
  105.     {Icircumflex {╬} {I^}}
  106.     {Idiaeresis {╧} {"I}}
  107.     {ETH {╨} {DH}}
  108.       {ETH {╨} {Dh}}
  109.       {ETH {╨} {DD}}
  110.       {ETH {╨} {-D}}
  111.       {ETH {╨} {/D}}
  112.       {ETH {╨} {'D}}
  113.     {Ntilde {╤} {N~}}
  114.       {Ntilde {╤} {NN}}
  115.     {Ograve {╥} {O`}}
  116.     {Oacute {╙} {'O}}
  117.     {Ocircumflex {╘} {O^}}
  118.     {Otilde {╒} {O~}}
  119.     {Odiaeresis {╓} {"O}}
  120.     {multiply {╫} {xx}}
  121.       {multiply {╫} {**}}
  122.     {Ooblique {╪} {/O}}
  123.     {Ugrave {┘} {U`}}
  124.     {Uacute {┌} {'U}}
  125.     {Ucircumflex {█} {U^}}
  126.     {Udiaeresis {▄} {"U}}
  127.     {Yacute {▌} {'Y}}
  128.     {THORN {▐} {HT}}
  129.       {THORN {▐} {Th}}
  130.       {THORN {▐} {TT}}
  131.       {THORN {▐} {Tt}}
  132.       {THORN {▐} {BP}}
  133.       {THORN {▐} {Pb}}
  134.     {ssharp {▀} {ss}}
  135.       {ssharp {▀} {SS}}
  136.     {agrave {α} {`a}}
  137.     {aacute {ß} {'a}}
  138.     {acircumflex {Γ} {^a}}
  139.     {atilde {π} {a~}}
  140.     {adiaeresis {Σ} {"a}}
  141.     {aring {σ} {ao}}
  142.       {aring {σ} {*a}}
  143.       {aring {σ} {aa}}
  144.     {ae {µ} {ae}}
  145.     {ccedilla {τ} {,c}}
  146.       {ccedilla {τ} {cc}}
  147.     {egrave {Φ} {`e}}
  148.     {eacute {Θ} {'e}}
  149.     {ecircumflex {Ω} {^e}}
  150.     {ediaeresis {δ} {"e}}
  151.     {igrave {∞} {`i}}
  152.     {iacute {φ} {'i}}
  153.     {icircumflex {ε} {^i}}
  154.     {idiaeresis {∩} {"i}}
  155.     {eth {≡} {dh}}
  156.       {eth {≡} {dd}}
  157.       {eth {≡} {/d}}
  158.       {eth {≡} {-d}}
  159.       {eth {≡} {'d}}
  160.     {ntilde {±} {n~}}
  161.       {ntilde {±} {nn}}
  162.     {ograve {≥} {`o}}
  163.     {oacute {≤} {'o}}
  164.     {ocircumflex {⌠} {^o}}
  165.     {otilde {⌡} {o~}}
  166.     {odiaeresis {÷} {"o}}
  167.     {division {≈} {-:}}
  168.       {division {≈} {//}}
  169.     {oslash {°} {/o}}
  170.     {ugrave {∙} {`u}}
  171.     {uacute {·} {'u}}
  172.     {ucircumflex {√} {^u}}
  173.     {udiaeresis {ⁿ} {"u}}
  174.     {yacute {²} {'y}}
  175.     {thorn {■} {ht}}
  176.       {thorn {■} {bp}}
  177.       {thorn {■} {tt}}
  178.     {ydiaeresis { } {"y}}
  179.   } {
  180.     set keysym [lindex $triple 0]
  181.     set glyph [lindex $triple 1]
  182.     set pair [lindex $triple 2]
  183.     set j_cmp(iso8859-1,glyph,$pair) $glyph
  184.     set j_cmp(iso8859-1,keysym,$pair) $keysym
  185.     
  186.     # signal to programs that the latin1 definitions have been loaded:
  187.     set j_cmp(iso8859-1) 1
  188.   }
  189. }
  190.